MacWorld 1998 May/Macworld (1998-05).dmg/Games World/Shareware Games/Arcade/Supreme Commander/Supreme Commander.mac/00001.ls

Text File | 1996-01-30 | 16.1 KB | 666 lines

on startMovie
  initialize()
end

on initialize
  global shaker, hole1, hole2, hole3, loop, launchnum, checklaunch, unibomber, occupied, destination, retractable, topupied, howdead, pullin, flywhere, hereyouis, flash, whichway, virex, attackearth, overdrive, ZING, donothing, HELLHOLE, beenhere
  set beenhere to 0
  set HELLHOLE to 0
  set donothing to 0
  set ZING to 0
  set overdrive to 150
  set attackearth to 0
  set virex to 0
  set howdead to 0
  set whichway to 0
  set flash to 0
  set hereyouis to 0
  set flywhere to 0
  set pullin to 0
  set topupied to 0
  set retractable to 0
  set destination to 0
  set unibomber to 0
  set occupied to 0
  set checklaunch to 0
  set launchnum to 113
  set loop to 0
  set shaker to 0
  set the stageColor to 255
  killthepuppets()
  seeyou()
  channelhider()
end

on channelhider
  set the visible of sprite 39 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 45 to 0
  set the visible of sprite 46 to 0
  set the visible of sprite 47 to 0
  set the visible of sprite 48 to 0
  updateStage()
end

on rattler
  global shaker
  set s to random(3)
  if shaker = 1 then
    exit
  else
    if s = 1 then
      topshaker()
    else
      if s = 2 then
        bottomshaker()
      else
        if s = 3 then
          backshaker()
        end if
      end if
    end if
  end if
end

on killthepuppets
  repeat with x = 1 to 48
    puppetSprite(x, 0)
  end repeat
  puppetSound(0)
  set the volume of sound 1 to 255
  set the volume of sound 2 to 255
  updateStage()
end

on seeyou
  repeat with x = 1 to 48
    set the visible of sprite x to 1
  end repeat
end

on wait howlong
  startTimer()
  repeat while the timer < howlong
    nothing()
  end repeat
end

on whipitoutTOP
  global origh, origv, GHOR, GVERT, puller, occupied, topupied, HELLHOLE
  puppetSprite(puller, 1)
  set the constraint of sprite 12 to 15
  repotop()
  repeat while the mouseDown
    set delth to the mouseH - GHOR
    set deltv to the mouseV - GVERT
    set the locV of sprite 12 to origv + deltv
    set the locH of sprite 12 to origh + delth
    set the visible of sprite 17 to 0
    highlighter()
    updateStage()
    if (the locV of sprite 12 > 217) and (the mouseH > 186) then
      set the visible of sprite 14 to 1
      set the visible of sprite 13 to 0
      set the visible of sprite 12 to 0
      updateStage()
      next repeat
    end if
    if (the locV of sprite 12 > 217) and (the mouseH < 186) then
      set the visible of sprite 14 to 0
      set the visible of sprite 12 to 0
      set the visible of sprite 13 to 1
      updateStage()
      next repeat
    end if
    if the locV of sprite 12 < 217 then
      set the visible of sprite 14 to 0
      set the visible of sprite 13 to 0
      set the visible of sprite 12 to 1
      updateStage()
    end if
  end repeat
  puppetSprite(17, 1)
  puppetSprite(12, 1)
  puppetSprite(13, 1)
  puppetSprite(14, 1)
  set the visible of sprite 36 to 0
  set the visible of sprite 37 to 0
  set the visible of sprite 38 to 0
  updateStage()
  if (the locV of sprite 12 > 217) and (the mouseH > 186) and (the visible of sprite 5 = 1) then
    set the locV of sprite 14 to 235
    set the locH of sprite 14 to 558
    set the visible of sprite 5 to 0
    set the castNum of sprite 17 to 19
    set the visible of sprite 17 to 1
    set topupied to 1
    SHWUNK()
    updateStage()
  else
    if (the locV of sprite 12 > 217) and (the mouseH < 186) and (the visible of sprite 7 = 1) then
      set the locV of sprite 13 to 221
      set the locH of sprite 13 to 471
      set the visible of sprite 7 to 0
      set the castNum of sprite 17 to 22
      set the visible of sprite 17 to 1
      set topupied to 3
      SHWUNK()
      updateStage()
    else
      if (the locV of sprite 12 < 217) and (the visible of sprite 6 = 1) then
        set the locV of sprite 12 to 210
        set the locH of sprite 12 to 481
        set the visible of sprite 6 to 0
        dontcover()
        set topupied to 2
        SHWUNK()
        updateStage()
      else
        repeat with x = 5 to 7
          set the visible of sprite x to 0
          updateStage()
        end repeat
      end if
    end if
  end if
  set HELLHOLE to 0
  checkpoker()
end

on whipitoutBOTTOM
  global origh, origv, GHOR, GVERT, puller, occupied, HELLHOLE
  puppetSprite(puller, 1)
  set the constraint of sprite 8 to 16
  repobottom()
  repeat while the mouseDown
    set delth to the mouseH - GHOR
    set deltv to the mouseV - GVERT
    set the locV of sprite 8 to origv + deltv
    set the locH of sprite 8 to origh + delth
    highlighter()
    updateStage()
    if (the locV of sprite 8 > 232) and (the mouseH > 183) then
      set the visible of sprite 10 to 1
      set the visible of sprite 9 to 0
      set the visible of sprite 8 to 0
      updateStage()
      next repeat
    end if
    if (the locV of sprite 8 < 225) and (the mouseH < 183) then
      set the visible of sprite 8 to 0
      set the visible of sprite 10 to 0
      set the visible of sprite 9 to 1
      updateStage()
      next repeat
    end if
    if the locV of sprite 8 < 238 then
      set the visible of sprite 10 to 0
      set the visible of sprite 9 to 0
      set the visible of sprite 8 to 1
      updateStage()
    end if
  end repeat
  puppetSprite(8, 1)
  puppetSprite(9, 1)
  puppetSprite(10, 1)
  puppetSprite(11, 1)
  if (the locV of sprite 8 > 232) and (the visible of sprite 5 = 1) then
    set the locV of sprite 10 to 233
    set the locH of sprite 10 to 559
    set the visible of sprite 5 to 0
    set the castNum of sprite 11 to 19
    set occupied to 1
    set the visible of sprite 11 to 1
    SHWUNK()
    updateStage()
  else
    if (the locV of sprite 8 < 238) and (the visible of sprite 7 = 1) then
      set the locV of sprite 8 to 232
      set the locH of sprite 8 to 466
      set the visible of sprite 7 to 0
      set the castNum of sprite 11 to 22
      set occupied to 3
      set the visible of sprite 11 to 1
      SHWUNK()
      updateStage()
    else
      if (the locV of sprite 8 < 225) and (the visible of sprite 6 = 1) then
        set the locV of sprite 9 to 220
        set the locH of sprite 9 to 480
        set the visible of sprite 6 to 0
        set the castNum of sprite 11 to 20
        set occupied to 2
        set the visible of sprite 11 to 1
        SHWUNK()
        updateStage()
      else
        repeat with x = 5 to 7
          set the visible of sprite x to 0
          updateStage()
        end repeat
      end if
    end if
  end if
  set HELLHOLE to 0
  checkpoker()
end

on setpoint
  global puller, origv, origh
  set origv to the locV of sprite puller
  set origh to the locH of sprite puller
end

on highlighter1
  global occupied, ZING
  if (the visible of sprite 6 = 1) or (the visible of sprite 7 = 1) then
    exit
  else
    if occupied <> 1 then
      LIGHTERSOUND()
      set the visible of sprite 5 to 1
    end if
  end if
end

on highlighter2
  global occupied, ZING
  if (the visible of sprite 7 = 1) or (the visible of sprite 5 = 1) then
    exit
  else
    if occupied <> 2 then
      LIGHTERSOUND()
      set the visible of sprite 6 to 1
      set ZING to 1
    end if
  end if
end

on highlighter3
  global occupied, ZING
  if (the visible of sprite 6 = 1) or (the visible of sprite 5 = 1) then
    exit
  else
    if occupied = 2 then
      LIGHTERSOUND()
      set the visible of sprite 36 to 1
      set ZING to 1
    else
      if occupied <> 3 then
        LIGHTERSOUND()
        set the visible of sprite 7 to 1
        set ZING to 1
      end if
    end if
  end if
end

on repoman
  set the locH of sprite 8 to 735
  set the locV of sprite 8 to 224
  set the locH of sprite 12 to 728
  set the locV of sprite 12 to 200
  set the visible of sprite 8 to 1
  set the visible of sprite 12 to 1
  updateStage()
end

on topshaker
  repeat with x = 1 to random(8)
    set the castNum of sprite 12 to 5
    puppetSound("waspshake")
    updateStage()
    set the castNum of sprite 12 to 6
    updateStage()
  end repeat
  puppetSound(0)
end

on bottomshaker
  if the castNum of sprite 8 = 6 then
    set y to 8
  else
    set y to 10
  end if
  repeat with x = 1 to random(8)
    set the castNum of sprite y to 5
    puppetSound("waspshake")
    updateStage()
    set the castNum of sprite y to 6
    updateStage()
  end repeat
  puppetSound(0)
end

on backshaker
  repeat with x = 1 to random(8)
    set the visible of sprite 19 to 1
    puppetSound("waspshake")
    updateStage()
    set the visible of sprite 19 to 0
    updateStage()
  end repeat
  puppetSound(0)
end

on dontcover
  global occupied
  if occupied = 3 then
    puppetSprite(17, 1)
    set the castNum of sprite 17 to 21
    set the visible of sprite 17 to 1
    updateStage()
  else
    set the castNum of sprite 17 to 20
    set the visible of sprite 17 to 1
    updateStage()
  end if
end

on checkpoker
  if (the visible of sprite 11 = 1) and (the visible of sprite 17 = 1) then
    set the visible of sprite 30 to 1
    updateStage()
  else
    set the visible of sprite 30 to 0
    updateStage()
  end if
end

on WARNING
  set the visible of sprite 39 to 1
  puppetSound("PIGS IN SPACE")
  updateStage()
  wait(45)
  puppetSound(0)
  set the visible of sprite 39 to 0
  updateStage()
end

on translator
  global symbol
  set symbol to the castNum of sprite 25 + 17
  if rollOver(25) = 1 then
    set the castNum of sprite 26 to symbol
    puppetSprite(26, 1)
    tone()
  else
    set the castNum of sprite 26 to symbol + 17
    puppetSprite(26, 1)
  end if
end

on scrollright
  if the castNum of sprite 23 < 145 then
    puppetSound("generic")
    repeat with x = 23 to 26
      puppetSprite(x, 1)
      set the castNum of sprite x to the castNum of sprite x + 1
    end repeat
    updateStage()
    wait(30)
  else
    puppetSound("generic")
    set the castNum of sprite 23 to 140
    set the castNum of sprite 24 to 140
    set the castNum of sprite 25 to 148
    set the castNum of sprite 26 to 182
    updateStage()
    wait(30)
  end if
  puppetSound(0)
end

on scrollleft
  if the castNum of sprite 23 > 140 then
    puppetSound("generic")
    repeat with x = 23 to 26
      puppetSprite(x, 1)
      set the castNum of sprite x to the castNum of sprite x - 1
    end repeat
    updateStage()
    wait(30)
  else
    puppetSound("generic")
    set the castNum of sprite 23 to 145
    set the castNum of sprite 24 to 145
    set the castNum of sprite 25 to 153
    set the castNum of sprite 26 to 187
    updateStage()
    wait(30)
  end if
  puppetSound(0)
end

on gowhere
  if (the castNum of sprite 11 = the number of cast "one") and ((the castNum of sprite 17 = the number of cast "two") or (the castNum of sprite 17 = the number of cast "two.B")) then
    set the castNum of sprite 24 to the number of cast "2.slant"
  else
    if (the castNum of sprite 11 = the number of cast "one") and (the castNum of sprite 17 = the number of cast "three") then
      set the castNum of sprite 24 to the number of cast "3.slant"
    else
      if (the castNum of sprite 11 = the number of cast "three") and ((the castNum of sprite 17 = the number of cast "two") or (the castNum of sprite 17 = the number of cast "two.B")) then
        set the castNum of sprite 24 to the number of cast "1.slant"
      else
        if (the castNum of sprite 11 = the number of cast "three") and (the castNum of sprite 17 = the number of cast "one") then
          set the castNum of sprite 24 to the number of cast "6.slant"
        else
          if ((the castNum of sprite 11 = the number of cast "two") or (the castNum of sprite 17 = the number of cast "two.B")) and (the castNum of sprite 17 = the number of cast "three") then
            set the castNum of sprite 24 to the number of cast "4.slant"
          else
            if ((the castNum of sprite 11 = the number of cast "two") or (the castNum of sprite 17 = the number of cast "two.B")) and (the castNum of sprite 17 = the number of cast "one") then
              set the castNum of sprite 24 to the number of cast "5.slant"
            end if
          end if
        end if
      end if
    end if
  end if
end

on whereyaheadin
  global flywhere
  if the castNum of sprite 24 = the number of cast "1.slant" then
    set flywhere to 1
  else
    if the castNum of sprite 24 = the number of cast "2.slant" then
      set flywhere to 2
    else
      if the castNum of sprite 24 = the number of cast "3.slant" then
        set flywhere to 3
      else
        if the castNum of sprite 24 = the number of cast "4.slant" then
          set flywhere to 4
        else
          if the castNum of sprite 24 = the number of cast "5.slant" then
            set flywhere to 5
          else
            set flywhere to 6
          end if
        end if
      end if
    end if
  end if
end

on CUMINSIDE
  global flywhere
  if flywhere = 1 then
    set the visible of sprite 8 to 1
    set the visible of sprite 12 to 1
    updateStage()
  else
    if flywhere = 2 then
      set the visible of sprite 10 to 1
      set the visible of sprite 12 to 1
      updateStage()
    else
      if flywhere = 3 then
        set the visible of sprite 10 to 1
        set the visible of sprite 13 to 1
        updateStage()
      else
        if flywhere = 4 then
          set the visible of sprite 9 to 1
          set the visible of sprite 13 to 1
          updateStage()
        else
          if flywhere = 5 then
            set the visible of sprite 9 to 1
            set the visible of sprite 14 to 1
            updateStage()
          else
            if flywhere = 6 then
              set the visible of sprite 8 to 1
              set the visible of sprite 14 to 1
              updateStage()
            end if
          end if
        end if
      end if
    end if
  end if
end

on hidelaunch
  set the visible of sprite 6 to 0
  set the visible of sprite 41 to 1
  puppetSprite(8, 0)
  updateStage()
end

on targetupdown
  set the constraint of sprite 3 to 2
  set r to random(2)
  if r = 1 then
    set the locV of sprite 3 to the locV of sprite 3 - 7
  else
    set the locV of sprite 3 to the locV of sprite 3 + 7
  end if
  updateStage()
end

on targetleftright
  set the constraint of sprite 3 to 2
  set r to random(2)
  if r = 1 then
    set the locH of sprite 3 to the locH of sprite 3 - 7
  else
    set the locH of sprite 3 to the locH of sprite 3 + 7
  end if
  updateStage()
end

on reverso
  set the ink of sprite 3 to 2
  updateStage()
end

on instruct
  set the castNum of sprite 4 to 180
  updateStage()
  tone()
end

on tippytop
  global puller
  if (puller = 8) or (puller = 9) or (puller = 10) then
    exit
  else
    set the visible of sprite 36 to 1
    set the visible of sprite 37 to 1
    set the visible of sprite 38 to 1
    set the visible of sprite 12 to 0
  end if
end

on tone
  global onesound
  if onesound = 0 then
    puppetSound("toneup")
    updateStage()
    wait(60)
    puppetSound(0)
    set onesound to 1
  else
    exit
  end if
end

on HEREITCOMES
  set the visible of sprite 5 to 1
  puppetSound("BU-BUMP")
  updateStage()
end

on EYEGLOW
  global onesound
  set the visible of sprite 1 to 1
  set the visible of sprite 2 to 1
  updateStage()
  if onesound = 0 then
    puppetSound("PIGS IN SPACE")
    updateStage()
    wait(60)
    puppetSound(0)
    set onesound to 1
  else
    continue()
  end if
end

on fourships
  global attackearth
  if the castNum of sprite 2 = 41 then
    set attackearth to attackearth + 1
  else
    nothing()
  end if
end

on TAFFYPULLER
  set L to random(3) + 4
  puppetSound("GENERIC")
  updateStage()
  if the visible of sprite L = 1 then
    set the visible of sprite L to 0
    updateStage()
  else
    if the visible of sprite L = 0 then
      set the visible of sprite L to 1
      updateStage()
    end if
  end if
end

on SHWUNK
  puppetSound("SWISH")
  updateStage()
  wait(20)
  puppetSound("INSERT")
  updateStage()
  wait(15)
  puppetSound(0)
end

on LIGHTERSOUND
  if (the visible of sprite 5 = 1) or (the visible of sprite 6 = 1) or (the visible of sprite 7 = 1) or (the visible of sprite 36 = 1) then
    exit
  else
    puppetSound("ZHWOW")
    updateStage()
    wait(20)
    puppetSound(0)
    set ZING to 1
  end if
end

on armaction
  puppetSprite(8, 1)
  set the locV of sprite 8 to 295
  set the locH of sprite 8 to 307
  set the castNum of sprite 8 to 174
  updateStage()
end